Option Explicit
Sub O_Sample015()
    Dim myMdl         As VBIDE.CodeModule
    Dim myPrcNameClc1 As New Collection
    Dim myPrcNameClc2 As Collection
    Dim myStr         As String
    Dim myTmpStr      As String
    Dim myStCol       As Long
    Dim myEdCol       As Long
    Dim myRet         As Boolean
    Dim i             As Long
    Dim j             As Long
    Set myMdl = ThisWorkbook.VBProject.VBComponents("Module1").CodeModule
    With myMdl
        For i = 1 To .CountOfLines
            myStr = .Lines(i, 1)
            'Re᪺ť
            myStr = Trim(myStr)
            myStCol = 0
            myTmpStr = ""
            'jM"'"
            Do
                myStCol = InStr(myStCol + 1, myStr, Chr(39))
                'sbɴNj
                If myStCol = 0 Then Exit Do
                'Ysb
                If myStCol > 0 Then
                    'NpƤeu"vƶq
                    'YOƪܴNP_
                    If myCountStr(Left(myStr, myStCol - 1), _
                          Chr(34)) Mod 2 = 0 Then
                        myTmpStr = Mid(myStr, myStCol)
                        Exit Do
                    End If
                End If
            'YO_ƪܴNլd᪺r
            Loop
            'P_~򪺦C
            myStr = ""
            If Len(myTmpStr) > 0 Then
                Do
                    If Right(myTmpStr, 2) = " _" Then
                        myStr = myStr + Left(myTmpStr, Len(myTmpStr) - 2)
                        i = i + 1
                        myTmpStr = .Lines(i, 1)
                    Else
                        myStr = myStr + myTmpStr
                        Debug.Print myStr
                        Exit Do
                    End If
                Loop
            End If
        Next
    End With
End Sub

'Ǧ^wrƥت
Function myCountStr(myStr As String, myFindstr As String) As Long
    Dim i     As Long
    Dim myRet As Long
    myRet = 1
    i = 0
    Do
        myRet = InStr(myRet, myStr, myFindstr)
        If myRet > 0 Then
            i = i + 1
            myRet = myRet + 1
        Else
            Exit Do
        End If
    Loop While myRet > 0
    myCountStr = i
End Function
